﻿Imports System
Imports System.Data
Imports System.Data.OracleClient

'/ <summary>
'/ The SQLDataAccessLayer contains the data access layer for Oracle data provider. 
'/ This class implements the abstract methods in the DataAccessLayerBaseClass class.
'/ </summary>
Public Class OracleDataAccessLayer
    Inherits DataAccessLayerBaseClass

    ' Provide class constructors
    Public Sub New()
    End Sub 'New

    Public Sub New(ByVal connectionString As String)
        Me.ConnectionString = connectionString
    End Sub 'New

    ' DataAccessLayerBaseClass Members
    Public Overrides Function GetDataProviderConnection() As IDbConnection
        Return New OracleConnection()
    End Function 'GetDataProviderConnection

    Public Overrides Function GeDataProviderCommand() As IDbCommand
        Return New OracleCommand()
    End Function 'GeDataProviderCommand


    Public Overrides Function GetDataProviderDataAdapter() As IDbDataAdapter
        Return New OracleDataAdapter()
    End Function
End Class